' ******************************************************************************
' swxJRNL.swj - journal recorded on 05/07/05 by Moi
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Assemblages\Maquette monte-charge.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Maquette monte-charge.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Ambiante", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Ambiante", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Directionnelle1", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Directionnelle1", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Directionnelle2", "LIGHTS", 0, 0, 0, False, 0, Nothing)
' MSGBOX
' Un ou plusieurs documents sont en train d'être fermés à la suite de cette opération. Si vous ne les enregistrez pas, vos modifications seront perdues.
' Cliquez sur "Oui" pour les fermer et les enregistrer.
' Cliquez sur "Non" pour les fermer sans enregistrer les modifications.

Part.ClearSelection2 True
Set Part = Nothing
swApp.CloseDoc "Maquette monte-charge.SLDASM"
Set Part = swApp.OpenDoc6 ("E:\Maquette Olivier\olivier pour vidéo.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("olivier pour vidéo.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Spot1", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Ambiante", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Ambiante", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Ambiante", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Ambiante", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.SetLightSourcePropertyValuesVB "Ambient", 1, 1, 16777215, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.29, 0, 0, 0
Part.LockLightToModel 0, False
Part.GraphicsRedraw
boolstatus = Part.Extension.SelectByID("Directionnelle1", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Directionnelle1", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.SetLightSourcePropertyValuesVB "Direction1", 4, 0.45, 16777215, 1, -2.5, 2.5, 7.5, 0, 0, 0, 0, 0, 0, 0, 0.2, 0.69, 0, 0
Part.LockLightToModel 1, False
Part.GraphicsRedraw
boolstatus = Part.Extension.SelectByID("Directionnelle2", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.SetLightSourcePropertyValuesVB "Direction2", 4, 0.88, 12615808, 1, 17, -2.7, -1.8, 0, 0, 0, 0, 0, 0, 0, 0.13, 0.85, 0, 0
Part.LockLightToModel 2, False
Part.GraphicsRedraw
Part.ShowNamedView2 "*Trimétrique", 8
Part.ShowNamedView2 "*Face", 1
Part.ShowNamedView2 "*Dessus", 5
Part.ShowNamedView2 "*Face", 1
Part.ShowNamedView2 "*Arrière", 2
Part.ShowNamedView2 "*Isométrique", 7
Part.ShowNamedView2 "*Trimétrique", 8
Part.ShowNamedView2 "*Dimétrique", 9
boolstatus = Part.Extension.SelectByID("", "FACE", -0.1499999999999, 0.01575708632629, -0.1407231883133, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Bâti-1@olivier pour vidéo/Seuil intermédiaire du bâti-1@SE Bâti", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("SE Bâti-1@olivier pour vidéo/Rampe de guidage-2@SE Bâti", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Bâti-1@olivier pour vidéo/Rampe de guidage-1@SE Bâti", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Bâti-1@olivier pour vidéo/Rampe de guidage-3@SE Bâti", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Bâti-1@olivier pour vidéo/Rampe de guidage-3@SE Bâti", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Bâti-1@olivier pour vidéo/Rampe de guidage-3@SE Bâti", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Bâti-1@olivier pour vidéo/Rampe de guidage-3@SE Bâti", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Bâti-1@olivier pour vidéo/Rampe de guidage-4@SE Bâti", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Bâti-1@olivier pour vidéo/Rampe de guidage-4@SE Bâti", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.Save2 FALSE
boolstatus = Part.Extension.SelectByID("Ambiante", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Ambiante", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.SetLightSourcePropertyValuesVB "Ambient", 1, 1, 16777215, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.6, 0, 0, 0
Part.LockLightToModel 0, False
Part.GraphicsRedraw
boolstatus = Part.Extension.SelectByID("Directionnelle1", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Directionnelle2", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Directionnelle2", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Ambiante", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.SetLightSourcePropertyValuesVB "Ambient", 1, 1, 16777215, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.29, 0, 0, 0
Part.LockLightToModel 0, False
Part.GraphicsRedraw
Part.EditRebuild
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Directionnelle2", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Directionnelle2", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.EditUnsuppress
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Directionnelle1", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Directionnelle1", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.EditUnsuppress
Part.ClearSelection2 True
Part.ShowNamedView2 "*Face", 1
boolstatus = Part.Extension.SelectByID("SE Bâti-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.CompConfigProperties3 2, 0, True, True
Part.ShowNamedView2 "*Trimétrique", 8
boolstatus = Part.Extension.SelectByID("", "FACE", 0.01691087970727, 0.00142313855639, -0.1084292036732, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo/Toit de cabine-1@SE Cabine", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.CompConfigProperties3 2, 0, True, True
Part.EditRebuild
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo/Sol de cabine-1@SE Cabine", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ShowNamedView2 "*Face", 1
boolstatus = Part.Extension.SelectByID("SE Contrepoids-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Contrepoids-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.CompConfigProperties3 2, 0, True, True
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.CompConfigProperties3 2, 0, True, True
Part.ShowNamedView2 "*Dessous", 6
Part.ShowNamedView2 "*Face", 1
Part.ShowNamedView2 "*Trimétrique", 8
boolstatus = Part.Extension.SelectByID("", "FACE", -0.0188904043813, -0.02573936348466, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo/Sol de cabine-1@SE Cabine", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.CompConfigProperties3 2, 0, True, True
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo/Côté de cabine-1@SE Cabine", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo/Côté de cabine-1@SE Cabine", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.CompConfigProperties3 2, 0, True, True
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo/Toit de cabine-1@SE Cabine", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo/Côté de cabine-2@SE Cabine", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo/Côté de cabine-2@SE Cabine", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.CompConfigProperties3 2, 0, True, True
boolstatus = Part.Extension.SelectByID("Inconnu", "BROWSERITEM", 0, 0, 0, False, 0, Nothing)
Part.AddLightSource "SW#3", 2, "Spot1"
Part.SetLightSourcePropertyValuesVB "SW#3", 2, 1, 16777215, 1, 0, 0, 1, 0, 0, -1, 45, 1, 0, 0, 0, 0, 0, 0
Part.LockLightToModel 3, False
Part.GraphicsRedraw
boolstatus = Part.Extension.SelectByID("Spot1", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Spot1", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Spot1", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Directionnelle2", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Directionnelle2", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Ambiante", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Ambiante", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.SetLightSourcePropertyValuesVB "Ambient", 1, 1, 16777215, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.29, 0, 0, 0
Part.LockLightToModel 0, False
Part.GraphicsRedraw
boolstatus = Part.Extension.SelectByID("Directionnelle1", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Directionnelle1", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.06628622436017, -0.1019999999998, -0.1623677013136, False, 0, Nothing)
Part.ShowNamedView2 "*Isométrique", 7
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Directionnelle2", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Directionnelle1", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Directionnelle2", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Directionnelle2", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.SetLightSourcePropertyValuesVB "Direction2", 4, 0.88, 12615808, 1, 17, -2.7, -1.8, 0, 0, 0, 0, 0, 0, 0, 0.13, 0.85, 0, 0
Part.LockLightToModel 2, False
Part.GraphicsRedraw
boolstatus = Part.Extension.SelectByID("Directionnelle1", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.SetLightSourcePropertyValuesVB "Direction1", 4, 0.45, 16777215, 1, -2.5, 2.5, 7.5, 0, 0, 0, 0, 0, 0, 0, 0.2, 0.69, 0, 0
Part.LockLightToModel 1, False
Part.GraphicsRedraw
boolstatus = Part.Extension.SelectByID("Inconnu", "BROWSERITEM", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Ambiante", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Ambiante", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.SetLightSourcePropertyValuesVB "Ambient", 1, 1, 16777215, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.29, 0, 0, 0
Part.LockLightToModel 0, False
Part.GraphicsRedraw
boolstatus = Part.Extension.SelectByID("Inconnu", "BROWSERITEM", 0, 0, 0, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0.00989107, 0
Part.ActiveView().RotateAboutCenter -0.0494554, -0.0104223
Part.ActiveView().RotateAboutCenter -0.197821, -0.17718
Part.ActiveView().RotateAboutCenter -0.227495, -0.125068
Part.ActiveView().RotateAboutCenter -0.247277, 0.0104223
Part.ActiveView().RotateAboutCenter -0.267059, 0.104223
Part.ActiveView().RotateAboutCenter 0.00989107, 0.145913
Part.ActiveView().RotateAboutCenter -0.0296732, 0.114646
Part.ActiveView().RotateAboutCenter -0.0890196, 0.166758
Part.ActiveView().RotateAboutCenter -0.118693, 0.198025
Part.ActiveView().RotateAboutCenter -0.118693, 0.166758
Part.ActiveView().RotateAboutCenter -0.158257, 0.0833788
Part.ActiveView().RotateAboutCenter -0.118693, 0
Part.ActiveView().RotateAboutCenter -0.0791286, -0.0104223
Part.ActiveView().RotateAboutCenter 0.00989107, 0
Part.ActiveView().RotateAboutCenter 0.445098, -0.125068
Part.ActiveView().RotateAboutCenter 0.138475, -0.0104223
Part.ActiveView().RotateAboutCenter 0.0791286, 0
Part.ActiveView().RotateAboutCenter 0.0296732, 0
Part.ActiveView().RotateAboutCenter 0.0494554, 0
Part.ActiveView().RotateAboutCenter 0.0692375, 0
Part.ActiveView().RotateAboutCenter 0.0989107, 0
Part.ActiveView().RotateAboutCenter 0.0989107, 0
Part.ActiveView().RotateAboutCenter 0.0890196, -0.0208447
Part.ActiveView().RotateAboutCenter 0.0593464, -0.0208447
Part.ActiveView().RotateAboutCenter 0.0197821, -0.0104223
Part.ActiveView().RotateAboutCenter 0.0197821, -0.0208447
Part.ActiveView().RotateAboutCenter 0.0197821, -0.0938011
Part.ActiveView().RotateAboutCenter 0, -0.104223
Part.ActiveView().RotateAboutCenter 0, -0.0833788
Part.ActiveView().RotateAboutCenter 0.0197821, -0.0729564
Part.ActiveView().RotateAboutCenter 0.0791286, -0.0938011
Part.ActiveView().RotateAboutCenter 0.0494554, -0.0729564
Part.ActiveView().RotateAboutCenter 0.0296732, -0.0833788
Part.ActiveView().RotateAboutCenter 0.00989107, -0.0833788
Part.ActiveView().RotateAboutCenter 0, -0.114646
Part.ActiveView().RotateAboutCenter 0, -0.0938011
Part.ActiveView().RotateAboutCenter 0, -0.0416894
Part.ActiveView().RotateAboutCenter 0, -0.0104223
Part.ActiveView().RotateAboutCenter -0.00989107, -0.031267
Part.ActiveView().RotateAboutCenter 0, -0.0521117
Part.ActiveView().RotateAboutCenter -0.0197821, -0.0208447
Part.ActiveView().RotateAboutCenter -0.0494554, 0
Part.ActiveView().RotateAboutCenter -0.0989107, 0.0416894
Part.ActiveView().RotateAboutCenter -0.0989107, 0.0208447
Part.ActiveView().RotateAboutCenter -0.0791286, 0.0208447
Part.ActiveView().RotateAboutCenter -0.0692375, 0.031267
Part.ActiveView().RotateAboutCenter -0.0791286, 0.0833788
Part.ActiveView().RotateAboutCenter -0.0791286, 0.0833788
Part.ActiveView().RotateAboutCenter -0.0791286, 0.104223
Part.ActiveView().RotateAboutCenter -0.0989107, 0.166758
Part.ActiveView().RotateAboutCenter -0.0692375, 0.114646
Part.ActiveView().RotateAboutCenter -0.0692375, 0.17718
Part.ActiveView().RotateAboutCenter -0.0494554, 0.0833788
Part.ActiveView().RotateAboutCenter -0.0494554, 0.0521117
Part.ActiveView().RotateAboutCenter -0.0791286, 0.125068
Part.ActiveView().RotateAboutCenter -0.0197821, 0.0208447
Part.ActiveView().RotateAboutCenter -0.0296732, 0.0104223
Part.ActiveView().RotateAboutCenter -0.0197821, 0.0104223
Part.ActiveView().RotateAboutCenter 0.00989107, 0
Part.ActiveView().RotateAboutCenter 0.0296732, 0
Part.ActiveView().RotateAboutCenter 0.108802, 0.0521117
Part.ActiveView().RotateAboutCenter 0.0395643, 0.0208447
Part.ActiveView().RotateAboutCenter 0.0197821, 0
Part.ActiveView().RotateAboutCenter 0.00989107, 0
Part.ActiveView().RotateAboutCenter 0.00989107, 0
Part.ActiveView().RotateAboutCenter 0.0395643, 0.0625341
Part.ActiveView().RotateAboutCenter 0.0494554, 0
Part.ActiveView().RotateAboutCenter 0.0791286, 0
Part.ActiveView().RotateAboutCenter 0.00989107, -0.0104223
Part.ActiveView().RotateAboutCenter 0.00989107, 0.0208447
Part.ActiveView().RotateAboutCenter 0.0791286, 0
Part.ActiveView().RotateAboutCenter 0.0989107, 0.0729564
Part.ActiveView().RotateAboutCenter -0.247277, 0.229292
Part.ActiveView().RotateAboutCenter -0.702266, 0.208447
Part.ActiveView().RotateAboutCenter -0.286841, 0.0104223
Part.ActiveView().RotateAboutCenter -0.0692375, -0.0208447
Part.ActiveView().RotateAboutCenter -0.0593464, -0.166758
Part.ActiveView().RotateAboutCenter 0.0890196, -0.364782
Part.ActiveView().RotateAboutCenter 0.336296, -0.479428
Part.ActiveView().RotateAboutCenter 0.267059, -0.260559
Part.ActiveView().RotateAboutCenter 0.385752, -0.333515
Part.ActiveView().RotateAboutCenter 0.168148, -0.104223
Part.ActiveView().RotateAboutCenter 0.00989107, -0.0104223
Part.ActiveView().RotateAboutCenter 0.0296732, 0
Part.ActiveView().RotateAboutCenter -0.0692375, 0.187602
Part.ActiveView().RotateAboutCenter -0.0692375, 0.114646
Part.ActiveView().RotateAboutCenter -0.0593464, 0.0416894
Part.ActiveView().RotateAboutCenter -0.0593464, 0.0521117
Part.ActiveView().RotateAboutCenter 0.0296732, -0.0416894
Part.ActiveView().RotateAboutCenter 0.00989107, -0.0208447
boolstatus = Part.Extension.SelectByID("SE Bâti-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Bâti-1@olivier pour vidéo/Seuil bas du bâti-1@SE Bâti", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.CompConfigProperties3 2, 0, False, True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ShowComponent2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Contrepoids-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.CompConfigProperties3 2, 0, True, True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.CompConfigProperties3 2, 0, True, True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Plan de face", "PLANE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Plan de dessus", "PLANE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Plan de droite", "PLANE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Bâti-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditRebuild
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("SE Bâti-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0.00989107, 0
Part.ActiveView().RotateAboutCenter 0.257168, -0.104223
Part.ActiveView().RotateAboutCenter 0.296732, -0.104223
Part.ActiveView().RotateAboutCenter 0.356079, -0.0938011
Part.ActiveView().RotateAboutCenter 0.0791286, 0
Part.ActiveView().RotateAboutCenter -0.118693, 0
Part.ActiveView().RotateAboutCenter -0.257168, 0.0833788
Part.ActiveView().RotateAboutCenter -0.197821, 0.104223
Part.ActiveView().RotateAboutCenter -0.178039, 0.104223
Part.ActiveView().RotateAboutCenter -0.0989107, 0.0416894
Part.ActiveView().RotateAboutCenter -0.0692375, 0.0208447
Part.ActiveView().RotateAboutCenter -0.0593464, 0.0104223
Part.ActiveView().RotateAboutCenter -0.0296732, 0
boolstatus = Part.Extension.SelectByID("SE Bâti-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditRebuild
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("SE Bâti-1@olivier pour vidéo/Seuil bas du bâti-1@SE Bâti", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.CompConfigProperties3 2, 0, True, True
boolstatus = Part.Extension.SelectByID("Directionnelle1", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Directionnelle1", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Directionnelle1", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.EditUnsuppress
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Directionnelle2", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Directionnelle2", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Directionnelle2", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.EditUnsuppress
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Ambiante", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.AddLightSource "SW#3", 3, "Ponctuelle1"
Part.SetLightSourcePropertyValuesVB "SW#3", 3, 1, 16777215, 1, 0, 0, 0.02, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Part.LockLightToModel 3, False
Part.GraphicsRedraw
boolstatus = Part.Extension.SelectByID("Ponctuelle1", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Ponctuelle1", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Directionnelle2", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Ambiante", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.ShowNamedView2 "*Face", 1
boolstatus = Part.Extension.SelectByID("SE Contrepoids-1@olivier pour vidéo/Entretoise du contrepoids-1@SE Contrepoids", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Contrepoids-1@olivier pour vidéo/Entretoise du contrepoids-1@SE Contrepoids", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.CompConfigProperties3 2, 0, True, True
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Contrepoids-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Contrepoids-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.CompConfigProperties3 2, 0, True, True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Cabine-1@olivier pour vidéo", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.CompConfigProperties3 2, 0, True, True
Part.ClearSelection2 True
Part.EditRebuild
' MSGBOX
' Certains des modèles référencés dans ce document ont été modifiés. Ils doivent être enregistrés lorsque le document est enregistré.
' 		Enregistrer le document et les modèles référencés maintenant ?

Part.Save2 FALSE
boolstatus = Part.Extension.SelectByID("Ambiante", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Ambiante", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.SetLightSourcePropertyValuesVB "Ambient", 1, 1, 16777215, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.29, 0, 0, 0
Part.LockLightToModel 0, False
Part.GraphicsRedraw
boolstatus = Part.Extension.SelectByID("Directionnelle1", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Directionnelle1", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.SetLightSourcePropertyValuesVB "Direction1", 4, 0.45, 16777215, 1, -2.5, 2.5, 7.5, 0, 0, 0, 0, 0, 0, 0, 0.2, 0.69, 0, 0
Part.LockLightToModel 1, False
Part.GraphicsRedraw
boolstatus = Part.Extension.SelectByID("Directionnelle2", "LIGHTS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Directionnelle2", "LIGHTS", 0, 0, 0, False, 0, Nothing)
Part.SetLightSourcePropertyValuesVB "Direction2", 4, 0.88, 8388672, 1, 17, -2.7, -1.8, 0, 0, 0, 0, 0, 0, 0, 0.13, 0.85, 0, 0
Part.LockLightToModel 2, False
Part.GraphicsRedraw
Part.ShowNamedView2 "*Dessous", 6
Part.ShowNamedView2 "*Isométrique", 7
boolstatus = Part.Extension.SelectByID("Directionnelle2", "LIGHTS", 0, 0, 0, False, 0, Nothing)
' MSGBOX
' Un ou plusieurs documents sont en train d'être fermés à la suite de cette opération. Si vous ne les enregistrez pas, vos modifications seront perdues.
' Cliquez sur "Oui" pour les fermer et les enregistrer.
' Cliquez sur "Non" pour les fermer sans enregistrer les modifications.

Part.ClearSelection2 True
Set Part = Nothing
swApp.CloseDoc "olivier pour vidéo.SLDASM"
Set Part = swApp.OpenDoc6 ("E:\Maquette Olivier\olivier pour vidéo.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("olivier pour vidéo.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ShowNamedView2 "*Isométrique", 7
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.1513959955203, 0.03601858674665, -0.1436037775728, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.149529486126, 0.03489799834529, -0.1354705903516, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.1316950667868, 0.04974531988881, -0.1449999999999, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Bâti-1@olivier pour vidéo/Seuil intermédiaire du bâti-1@SE Bâti", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("SE Bâti-1@olivier pour vidéo/Rampe de guidage-4@SE Bâti", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SE Bâti-1@olivier pour vidéo/Rampe de guidage-3@SE Bâti", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.Save2 FALSE
Part.ShowNamedView2 "*Dimétrique", 9
Part.ActiveView().RotateAboutCenter -0.00989107, 0
Part.ActiveView().RotateAboutCenter -0.00989107, 0
Part.ActiveView().RotateAboutCenter 0, 0.031267
Part.ActiveView().RotateAboutCenter -0.00989107, 0.0625341
Part.ActiveView().RotateAboutCenter 0, 0.0625341
Part.ActiveView().RotateAboutCenter 0, 0.0416894
Part.ActiveView().RotateAboutCenter 0, 0.0208447
Part.ActiveView().RotateAboutCenter 0, 0.0416894
Part.ActiveView().RotateAboutCenter 0, 0.0208447
Part.ActiveView().RotateAboutCenter 0, 0.031267
Part.ActiveView().RotateAboutCenter 0, 0.0208447
Part.ActiveView().RotateAboutCenter -0.00989107, 0.0208447
Part.ActiveView().RotateAboutCenter -0.00989107, 0.0208447
Part.ActiveView().RotateAboutCenter -0.00989107, 0.0208447
Part.ActiveView().RotateAboutCenter -0.00989107, 0.0104223
Part.ActiveView().RotateAboutCenter 0, 0.0104223
Part.ActiveView().RotateAboutCenter 0, 0.0104223
Part.ActiveView().RotateAboutCenter 0, 0.031267
Part.ActiveView().RotateAboutCenter 0, 0.0104223
Part.ActiveView().RotateAboutCenter 0, 0.0104223
Part.ActiveView().RotateAboutCenter 0, 0.031267
Part.ActiveView().RotateAboutCenter 0, 0.0208447
Part.ActiveView().RotateAboutCenter 0, 0.0208447
Part.ActiveView().RotateAboutCenter 0, 0.0208447
Part.ActiveView().RotateAboutCenter 0, 0.0104223
Part.ActiveView().RotateAboutCenter 0, 0.0104223
Part.ActiveView().RotateAboutCenter 0, 0.0104223
Part.ShowNamedView2 "*Face", 1
Part.Save2 FALSE
Part.ClearSelection2 True
Set Part = Nothing
swApp.CloseDoc "olivier pour vidéo.SLDASM"
swApp.ExitApp
End Sub
